home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_36263.txt < prev    next >
Text File  |  1990-08-14  |  3KB  |  121 lines
  1. -- background: 36263 from stack: in
  2. -- bmap block id: 60121
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Course Details
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global interactiveDemo
  9.   installMenuBar 1050,1051,1052,1053,1054
  10.   if interactiveDemo then
  11.     show card field "Instructions"
  12.   end if
  13.   put false into interactiveDemo
  14. end openBackground
  15.  
  16. on doMenu menuItem
  17.   if menuItem contains "About" then
  18.     lock screen
  19.     restoreMenuBar
  20.     go to card short name of this background of background "About"
  21.     unlock screen with zoom close
  22.   else if menuItem is "Home" then
  23.     lock screen
  24.     restoreMenuBar
  25.     go home
  26.   else if menuItem contains "Quit" then
  27.     lock screen
  28.     restoreMenuBar false
  29.     go to card "Mac School¬Æ Shell"
  30.     unlock screen with zoom close
  31.   else if menuItem is "New Course‚Ķ" then
  32.     push card
  33.     go to background "Course Details tabs"
  34.   else if (menuItem is "Open‚Ķ" OR menuItem is "Close" OR menuItem is "Import Students‚Ķ" OR menuItem is "Page Setup‚Ķ" OR menuItem is "Undo" OR menuItem is "Cut" OR menuItem is "Copy" OR menuItem is "Paste" OR menuItem is "Clear") then -- do nothing
  35.   end if
  36. end doMenu
  37.  
  38.  
  39. -- part 1 (field)
  40. -- low flags: 01
  41. -- high flags: 0000
  42. -- rect: left=13 top=48 right=63 bottom=89
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 0
  46. -- font id: 3
  47. -- text size: 10
  48. -- style flags: 0
  49. -- line height: 13
  50. -- part name: Courses
  51.  
  52.  
  53. -- part 2 (field)
  54. -- low flags: 01
  55. -- high flags: 0000
  56. -- rect: left=414 top=48 right=63 bottom=497
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 65535
  60. -- font id: 3
  61. -- text size: 10
  62. -- style flags: 0
  63. -- line height: 13
  64. -- part name: date
  65.  
  66.  
  67. -- part 3 (field)
  68. -- low flags: 01
  69. -- high flags: 0007
  70. -- rect: left=80 top=94 right=320 bottom=169
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Course #
  79.  
  80.  
  81. -- part 4 (field)
  82. -- low flags: 01
  83. -- high flags: 0007
  84. -- rect: left=152 top=94 right=320 bottom=499
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Course Name
  93.  
  94.  
  95. -- part 5 (field)
  96. -- low flags: 01
  97. -- high flags: 0007
  98. -- rect: left=302 top=94 right=320 bottom=499
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Department
  107.  
  108.  
  109. -- part 6 (field)
  110. -- low flags: 01
  111. -- high flags: 0007
  112. -- rect: left=454 top=94 right=320 bottom=499
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 0
  116. -- font id: 3
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Select
  121.